Aminet 37/Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso/Aminet/dev/lang/sofa.lha/sofa/smalleiffel/lib_std/memory.e

Text File | 2000-03-25 | 2KB | 65 lines

-- This file is  free  software, which  comes  along  with  SmallEiffel. This
-- software  is  distributed  in the hope that it will be useful, but WITHOUT
-- ANY  WARRANTY;  without  even  the  implied warranty of MERCHANTABILITY or
-- FITNESS  FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You  are  allowed  to  redistribute  it and sell it, alone or as a part of
-- another product.
--          Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
--            Dominique COLNET and Suzanne COLLIN - [e-mail]
--                       http://SmallEiffel.loria.fr
--
expanded class MEMORY
--
-- Facilities for tuning up the garbage collection, and
-- everything about memory control.
--

feature -- Status Report :

   frozen collecting: BOOLEAN is
         -- Is garbage collection enabled ?
      do
         c_inline_c("R=!gc_is_off;%N");
      end;

feature -- Status setting :

   frozen collection_off is
         -- Disable garbage collection.
      do
         c_inline_c("gc_is_off=1;%N");
      end;

   frozen collection_on is
         -- Enable garbage collection.
      do
         c_inline_c("gc_is_off=0;%N");
      end;

feature -- Removal :

   dispose is
         -- Action to be executed just before garbage collection
         -- reclaims an object.
      do
      end;

   frozen full_collect is
         -- Force a full collection cycle if garbage collection is
         -- enabled; do nothing otherwise.
      do
         if collecting then
            c_inline_c("gc_start();%N");
         end;
      end;

feature -- The Guru section (low level memory management) :

   pointer_size: INTEGER is
         -- The size in number of bytes for a pointer.
      external "SmallEiffel"
      end;

end -- MEMORY